﻿Public Class frmPassword

    Private Sub frmPassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtPass.Clear()

    End Sub

    Private Sub RadButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton2.Click
        Close()

    End Sub

    Private Sub txtPass_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPass.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
            RadButton2_Click(Me, System.EventArgs.Empty)
        End If
    End Sub

    Private Sub txtPass_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtPass.TextChanged

    End Sub
End Class